package cn.texous.util.commons.util;

import com.google.zxing.BarcodeFormat;
import com.google.zxing.BinaryBitmap;
import com.google.zxing.DecodeHintType;
import com.google.zxing.EncodeHintType;
import com.google.zxing.MultiFormatReader;
import com.google.zxing.MultiFormatWriter;
import com.google.zxing.Result;
import com.google.zxing.client.j2se.BufferedImageLuminanceSource;
import com.google.zxing.common.BitMatrix;
import com.google.zxing.common.HybridBinarizer;
import com.google.zxing.qrcode.decoder.ErrorCorrectionLevel;

import javax.imageio.ImageIO;
import java.awt.BasicStroke;
import java.awt.Graphics;
import java.awt.Graphics2D;
import java.awt.Image;
import java.awt.Shape;
import java.awt.geom.RoundRectangle2D;
import java.awt.image.BufferedImage;
import java.io.File;
import java.io.FileInputStream;
import java.io.InputStream;
import java.io.OutputStream;
import java.util.Hashtable;

/**
 * 二维码工具类
 */
public class QRCodeUtils {

    private static final String CHARSET = "utf-8";
    private static final String FORMAT_NAME = "JPG";
    // 二维码尺寸
    private static final int QRCODE_SIZE = 46;
    // LOGO宽度
    private static final int WIDTH = 60;
    // LOGO高度
    private static final int HEIGHT = 60;


    /**
     * 生成二维码
     *
     * @param content      源内容
     * @param logoIs       logo
     * @param needCompress 是否要压缩
     * @return 返回二维码图片
     * @throws Exception e
     */
    public static BufferedImage createImage(String content,
                                            InputStream logoIs,
                                            Integer codeSize,
                                            boolean needCompress) throws Exception {
        int qrcodeSize = codeSize == null ? QRCODE_SIZE : codeSize;
        Hashtable hints = new Hashtable();
        hints.put(EncodeHintType.ERROR_CORRECTION, ErrorCorrectionLevel.H);
        hints.put(EncodeHintType.CHARACTER_SET, CHARSET);
        hints.put(EncodeHintType.MARGIN, 1);
        BitMatrix bitMatrix = new MultiFormatWriter()
                .encode(content, BarcodeFormat.QR_CODE, qrcodeSize, qrcodeSize, hints);
        int width = bitMatrix.getWidth();
        int height = bitMatrix.getHeight();
        BufferedImage image = new BufferedImage(width, height, BufferedImage.TYPE_INT_RGB);
        for (int x = 0; x < width; x++) {
            for (int y = 0; y < height; y++) {
                image.setRGB(x, y, bitMatrix.get(x, y) ? 0xFF000000 : 0xFFFFFFFF);
            }
        }
        if (logoIs == null) {
            return image;
        }
        // 插入图片
        QRCodeUtils.insertImage(image, logoIs, qrcodeSize, needCompress);
        return image;
    }

    private static void insertImage(BufferedImage source,
                                    InputStream logoIs,
                                    Integer qrcodeSize,
                                    boolean needCompress) throws Exception {
        Image src = ImageIO.read(logoIs);
        int width = src.getWidth(null);
        int height = src.getHeight(null);
        if (needCompress) { // 压缩LOGO
            if (width > WIDTH) {
                width = WIDTH;
            }
            if (height > HEIGHT) {
                height = HEIGHT;
            }
            Image image = src.getScaledInstance(width, height, Image.SCALE_SMOOTH);
            BufferedImage tag = new BufferedImage(width, height, BufferedImage.TYPE_INT_RGB);
            Graphics g = tag.getGraphics();
            g.drawImage(image, 0, 0, null); // 绘制缩小后的图
            g.dispose();
            src = image;
        }
        // 插入LOGO
        Graphics2D graph = source.createGraphics();
        int x = (qrcodeSize - width) / 2;
        int y = (qrcodeSize - height) / 2;
        graph.drawImage(src, x, y, width, height, null);
        Shape shape = new RoundRectangle2D.Float(x, y, width, width, 6, 6);
        graph.setStroke(new BasicStroke(3f));
        graph.draw(shape);
        graph.dispose();
    }

    /**
     * 生成带logo二维码，并保存到磁盘
     *
     * @param content      链接或者内容
     * @param imgPath      logo图片
     * @param outPath      保存二维码图片的文件路径
     * @param needCompress 压缩
     * @throws Exception e
     */
    public static Boolean encode(String content, String imgPath,
                                 String outPath, boolean needCompress,
                                 Integer qrcodeSize,
                                 String fileName) throws Exception {
        if (!fileExists(imgPath)) {
            return false;
        }
        InputStream inputStream = new FileInputStream(new File(imgPath));
        BufferedImage image = QRCodeUtils.createImage(
                content, inputStream, qrcodeSize, needCompress);
        if (image == null) {
            return false;
        }
        mkdirs(outPath);
        String filePath = fileName + ".jpg";//生成随机文件名
        ImageIO.write(image, FORMAT_NAME, new File(outPath + "/" + filePath));
        return true;
    }

    /***/
    public static Boolean encode(String content, InputStream logoIs,
                                 String outPath, boolean needCompress,
                                 Integer qrcodeSize,
                                 String fileName) throws Exception {
        BufferedImage image = QRCodeUtils.createImage(content, logoIs, qrcodeSize, needCompress);
        if (image == null) {
            return false;
        }
        mkdirs(outPath);
        String filePath = fileName + ".jpg";//生成随机文件名
        ImageIO.write(image, FORMAT_NAME, new File(outPath + "/" + filePath));
        return true;
    }

    /***/
    public static void encode(String content, InputStream logoIs,
                              OutputStream output, Integer qrcodeSize,
                              boolean needCompress) throws Exception {
        BufferedImage image = QRCodeUtils.createImage(content, logoIs, qrcodeSize, needCompress);
        ImageIO.write(image, FORMAT_NAME, output);
    }

    /***/
    public static void encode(String content, OutputStream output,
                              String logoPath, Integer qrcodeSize,
                              boolean needCompress) throws Exception {
        if (!fileExists(logoPath)) {
            return;
        }
        InputStream inputStream = new FileInputStream(new File(logoPath));
        BufferedImage image = QRCodeUtils.createImage(
                content, inputStream, qrcodeSize, needCompress);
        ImageIO.write(image, FORMAT_NAME, output);
    }

    public static void encode(String content, OutputStream output,
                              Integer qrcodeSize) throws Exception {
        QRCodeUtils.encode(content, null, output, qrcodeSize, false);
    }

    /**
     * 从二维码中，解析数据
     *
     * @param file 二维码图片文件
     * @return 返回从二维码中解析到的数据值
     * @throws Exception e
     */
    public static String decode(File file) throws Exception {
        BufferedImage image;
        image = ImageIO.read(file);
        if (image == null) {
            return null;
        }
        BufferedImageLuminanceSource source = new BufferedImageLuminanceSource(image);
        BinaryBitmap bitmap = new BinaryBitmap(new HybridBinarizer(source));
        Result result;
        Hashtable hints = new Hashtable();
        hints.put(DecodeHintType.CHARACTER_SET, CHARSET);
        result = new MultiFormatReader().decode(bitmap, hints);
        String resultStr = result.getText();
        return resultStr;
    }

    public static String decode(String path) throws Exception {
        return QRCodeUtils.decode(new File(path));
    }

    /***/
    public static void mkdirs(String destPath) {
        File file = new File(destPath);
        // 当文件夹不存在时，mkdirs会自动创建多层目录，区别于mkdir。(mkdir如果父目录不存在则会抛出异常)
        if (!file.exists() && !file.isDirectory()) {
            file.mkdirs();
        }
    }

    private static boolean fileExists(String path) {
        if (path != null
                && !"".equals(path.trim())) {
            File file = new File(path);
            if (file.exists())
                return true;
        }
        System.err.println("" + path + "   该文件不存在！");
        return false;
    }

}
